Libraries

library("ggplot2")
library("reshape2")
library("ggfortify")
library("tidyverse")
library("plotly")

source("functions.R")
data <-read.csv("data/alrosa/revenue.csv", sep = ",")
  
# avoid sorting
data$Dt <- factor(data$Dt, levels = data$Dt)
  
df <- data

Basic observation of the data Alrosa/Revenue

p <- revenuePlot(df)
link <- revenuePlotInteractive(p)
link